home *** CD-ROM | disk | FTP | other *** search
/ Psygnosis Promotional CD-ROM for E3 1998 / Psygnosis Promotional CD-ROM for E3 1998.iso / introseq.dir / 00023_Script_selectLang < prev    next >
Text File  |  1998-05-08  |  605b  |  20 lines
  1. global LangVersion, gLangList, gLangObj, gAction
  2. -------------------------------------------
  3. on mouseDown me 
  4.   if (LangVersion <> 0) OR (gAction <> 2) then exit
  5.   set theSprite = the spriteNum of me
  6.   set LangVersion = the name of member (the member of sprite theSprite)
  7.   -------
  8.   repeat with n = 1 to count(gLangList)
  9.     set theObj = getAt(gLangList, n)
  10.     set myMember = the myImage of theObj
  11.     if myMember = LangVersion then
  12.       set gLangObj = theObj
  13.       deleteAt gLangList, n
  14.       exit repeat
  15.     end if
  16.   end repeat
  17.   -------
  18.   prepareNextAction
  19.   -------
  20. end mouseDown